home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / Freeware / PerfectPaint / rexx / Border / Script&Picture / Ripple.brx < prev    next >
Text File  |  2002-10-07  |  796b  |  65 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     pp_Progresstext 'Border'
  10.  
  11.     pp_GetWidth
  12.     W=result
  13.     pp_GetHeight
  14.     H=result
  15.     pp_ClosestColor 255 255 255
  16.     White=result
  17.     pp_ClosestColor 0 0 0
  18.     Black=result
  19.  
  20.     pp_StencilOff
  21.     pp_EffectOff
  22.     pp_SpareOnOff
  23.     pp_ComposeReqOff
  24.     pp_Compose 0 100 0
  25.     pp_SetApen Black
  26.     pp_SetBpen White
  27.     pp_Cls
  28.  
  29.     Tot=20+W+H
  30.  
  31.     pp_Progress 1 Tot
  32.     pp_Boxf 10 10 W-11 H-11
  33.  
  34.     pp_EffectOn
  35.     pp_Ripple 10
  36.     
  37.     Do i=0 to W-1 by 80
  38.         pp_Progress 1+i Tot
  39.         pp_CircleF i 10 40
  40.         pp_CircleF i H-11 40
  41.     END
  42.  
  43.     Do i=0 to H-1 by 80
  44.         pp_Progress 1+i+W Tot
  45.         pp_CircleF 10 i 40
  46.         pp_CircleF W-11 i 40
  47.     END
  48.  
  49.     pp_Progress 4+W+H Tot
  50.     pp_GaussianBlur 5
  51.     pp_BoxF 0 0 W-1 H-1
  52.     pp_AdjustLevels 53 103
  53.  
  54.     pp_EffectOff
  55.  
  56.   pp_Progress 5+W+H Tot
  57.     pp_SparetoStencil
  58.  
  59.     EXIT
  60.  
  61.  
  62.  
  63.     
  64.  
  65.